inherited FrmCad_ProdCusto: TFrmCad_ProdCusto
  Left = 430
  Top = 156
  Caption = 'Atualiza'#231#227'o dos Pre'#231'os de Custo / Marcap dos Produtos'
  ClientHeight = 627
  ClientWidth = 720
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 720
    Height = 49
    object Label1: TLabel
      Left = 24
      Top = 25
      Width = 84
      Height = 14
      Caption = 'C'#243'digo da Fase'
    end
    object c_fase: TSpeedButton
      Left = 144
      Top = 23
      Width = 23
      Height = 22
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = c_faseClick
    end
    object ed_fase: TEdit
      Left = 120
      Top = 23
      Width = 20
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 2
      TabOrder = 1
      OnEnter = ed_faseEnter
      OnExit = ed_faseExit
      OnKeyDown = ed_faseKeyDown
      OnKeyPress = ed_faseKeyPress
    end
    object p_fase: TPanel
      Left = 171
      Top = 23
      Width = 406
      Height = 21
      Alignment = taLeftJustify
      BevelInner = bvLowered
      TabOrder = 2
    end
    object ckAtivos: TCheckBox
      Left = 121
      Top = 4
      Width = 161
      Height = 17
      Caption = 'Somente produtos ativos'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
  end
  inherited Panel2: TPanel
    Top = 49
    Width = 720
    Height = 511
    object Label2: TLabel
      Left = 41
      Top = 11
      Width = 67
      Height = 14
      Caption = 'Ordenar por'
    end
    object l_nome: TLabel
      Left = 54
      Top = 44
      Width = 54
      Height = 14
      Caption = 'Descri'#231#227'o'
    end
    object l_codigo: TLabel
      Left = 69
      Top = 44
      Width = 39
      Height = 14
      Caption = 'C'#243'digo'
      Visible = False
    end
    object dbg1: TDBGrid
      Left = 3
      Top = 85
      Width = 714
      Height = 249
      DataSource = DataSource1
      FixedColor = 14081504
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      Visible = False
      OnDblClick = dbg1DblClick
      OnKeyDown = dbg1KeyDown
      OnKeyPress = dbg1KeyPress
      OnTitleClick = dbg1TitleClick
      Columns = <
        item
          Color = clMenu
          Expanded = False
          FieldName = 'Pro_Codigo'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Courier New'
          Font.Style = [fsBold]
          ReadOnly = True
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Courier New'
          Title.Font.Style = [fsBold]
          Width = 138
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Ref'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Courier New'
          Font.Style = [fsBold]
          Title.Caption = 'Cod. Ref.'
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Courier New'
          Title.Font.Style = [fsBold]
          Width = 95
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Pro_Nome'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Courier New'
          Font.Style = [fsBold]
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Courier New'
          Title.Font.Style = [fsBold]
          Width = 354
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Embalagem'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Courier New'
          Font.Style = [fsBold]
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Courier New'
          Title.Font.Style = [fsBold]
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Unidade'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Courier New'
          Font.Style = [fsBold]
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Courier New'
          Title.Font.Style = [fsBold]
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PesoLiq'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Courier New'
          Font.Style = [fsBold]
          Title.Caption = 'Peso Liq.'
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Courier New'
          Title.Font.Style = [fsBold]
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PesoBrt'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Courier New'
          Font.Style = [fsBold]
          Title.Caption = 'Peso Brt.'
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Courier New'
          Title.Font.Style = [fsBold]
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Pro_Custo'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Courier New'
          Font.Style = [fsBold]
          Title.Caption = 'Custo'
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Courier New'
          Title.Font.Style = [fsBold]
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Pro_custoreal'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'Custo Real'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Emp_Codigo'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'Empr.'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'divisao'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'Divis'#227'o'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'linha'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'Linha'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'classif'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'Classif.'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fase'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'Fase'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'trib'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'Cod.Trib.'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ipi'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'IPI'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'icms'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'ICMS'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'comiss'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'Comiss'#227'o'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'peso'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'Peso'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ativo'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'Ativo'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'baixaaut'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Caption = 'Baixa Aut.'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Pro_Marcap'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'metro3'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = 'Mt. C'#250'bico'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CodigoDoGrupo'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = 'C'#243'd. Grupo'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Altura'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Largura'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Espessura'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'PRO_CUSTOMEDIO'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = 'Custo M'#233'dio'
          Visible = True
        end>
    end
    object dbg: TDBGrid
      Left = 3
      Top = 138
      Width = 714
      Height = 248
      Align = alCustom
      DataSource = DataSource1
      FixedColor = 14081504
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnColEnter = dbgColEnter
      OnDblClick = dbgDblClick
      OnKeyDown = dbgKeyDown
      OnKeyPress = dbgKeyPress
      OnTitleClick = dbgTitleClick
      Columns = <
        item
          Color = 14081504
          Expanded = False
          FieldName = 'Pro_Codigo'
          ReadOnly = True
          Width = 95
          Visible = True
        end
        item
          Color = 14081504
          Expanded = False
          FieldName = 'Pro_Nome'
          ReadOnly = True
          Width = 304
          Visible = True
        end
        item
          Alignment = taCenter
          Color = 14081504
          Expanded = False
          FieldName = 'Unidade'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'UN'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Pro_Custo'
          ReadOnly = True
          Width = 83
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'icms'
          Title.Alignment = taCenter
          Title.Caption = '% ICMS'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ipi'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'pis'
          Title.Alignment = taCenter
          Title.Caption = '% PIS'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'cofins'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'frete'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'icmsfrete'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'quebra'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'encargos'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Alignment = taCenter
          Color = 14081504
          Expanded = False
          FieldName = 'Pro_custoreal'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'Custo Real'
          Visible = False
        end
        item
          Color = clWhite
          Expanded = False
          FieldName = 'Pro_Marcap'
          Width = 67
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CUSTO'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'PRO_CUSTOMEDIO'
          ReadOnly = True
          Title.Caption = 'Custo M'#233'dio'
          Visible = True
        end>
    end
    object p_ordem: TRadioGroup
      Left = 120
      Top = 0
      Width = 297
      Height = 33
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Descri'#231#227'o do Produto'
        'C'#243'digo do Produto')
      TabOrder = 1
      OnClick = p_ordemClick
    end
    object EdtDescricao: TEdit
      Left = 120
      Top = 42
      Width = 425
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 40
      TabOrder = 3
      OnKeyDown = EdtDescricaoKeyDown
    end
    object bExporta: TBitBtn
      Left = 568
      Top = 18
      Width = 129
      Height = 33
      Caption = '&Exportar'
      TabOrder = 6
      OnClick = BitBtn1Click
    end
    object pnlDepartamento: TPanel
      Left = 3
      Top = 339
      Width = 714
      Height = 169
      Color = 14936298
      TabOrder = 7
      object lblDepartamento: TLabel
        Left = 7
        Top = 22
        Width = 85
        Height = 14
        Caption = 'Departamento *'
      end
      object c_Departamento: TSpeedButton
        Left = 121
        Top = 18
        Width = 23
        Height = 22
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
          333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
          C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
          F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
          F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
          00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
          3333333373FF7333333333333000333333333333377733333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = c_DepartamentoClick
      end
      object edtCodDep: TEdit
        Left = 97
        Top = 18
        Width = 20
        Height = 22
        BevelKind = bkFlat
        BorderStyle = bsNone
        CharCase = ecUpperCase
        MaxLength = 2
        TabOrder = 0
        OnEnter = edtCodDepEnter
        OnExit = edtCodDepExit
        OnKeyDown = edtCodDepKeyDown
      end
      object pnlDescDep: TPanel
        Left = 148
        Top = 19
        Width = 406
        Height = 21
        Alignment = taLeftJustify
        BevelInner = bvLowered
        TabOrder = 3
      end
      object BtnExcluirDep: TBitBtn
        Left = 633
        Top = 16
        Width = 72
        Height = 25
        Caption = 'Excluir'
        TabOrder = 2
        OnClick = BtnExcluirDepClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
          305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
          005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
          B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
          B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
          B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
          B0557777FF577777F7F500000E055550805577777F7555575755500000555555
          05555777775555557F5555000555555505555577755555557555}
        NumGlyphs = 2
      end
      object BtnInserirDep: TBitBtn
        Left = 557
        Top = 16
        Width = 73
        Height = 25
        Caption = 'Inserir'
        TabOrder = 1
        OnClick = BtnInserirDepClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333FFF333333333333000333333333
          3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
          3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
          0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
          BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
          33337777773FF733333333333300033333333333337773333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object dbgDepartamento: TDBGrid
        Left = 1
        Top = 46
        Width = 712
        Height = 107
        Align = alCustom
        DataSource = dsDepartamento
        FixedColor = 14081504
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        TabOrder = 4
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Arial'
        TitleFont.Style = [fsBold]
        OnKeyDown = dbgDepartamentoKeyDown
        Columns = <
          item
            Expanded = False
            FieldName = 'Pro_Codigo'
            Title.Caption = 'Produto'
            Width = 114
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pro_Descricao'
            Title.Caption = 'Descri'#231#227'o'
            Width = 327
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Dep_Codigo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Departamento'
            Width = 232
            Visible = True
          end>
      end
    end
    object ed_produto: TMaskEdit
      Left = 120
      Top = 42
      Width = 121
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      TabOrder = 2
      Visible = False
      OnKeyDown = ed_produtoKeyDown
    end
    object ckCustoZero: TCheckBox
      Left = 120
      Top = 68
      Width = 209
      Height = 17
      Caption = 'Somente produtos s/ custo'
      Checked = True
      State = cbChecked
      TabOrder = 4
      OnClick = ckCustoZeroClick
    end
  end
  inherited Panel4: TPanel
    Top = 560
    Width = 720
    inherited btnGravar: TFlatButton
      Width = 145
      OnClick = btnGravarClick
    end
    inherited BtnEliminar: TFlatButton
      Top = 45
      Visible = False
    end
    inherited btnCancelar: TFlatButton
      Left = 195
      Width = 145
    end
    inherited btnlistagem: TFlatButton
      Left = 382
      Width = 145
      OnClick = btnlistagemClick
    end
    inherited btnFechar: TFlatButton
      Left = 568
      Width = 145
    end
  end
  inherited BS: TStatusBar
    Top = 608
    Width = 720
  end
  inherited Timer1: TTimer
    Left = 653
    Top = 9
  end
  inherited RDP: TRDprint
    OnNewPage = RDPNewPage
    OnBeforeNewPage = RDPBeforeNewPage
    Left = 684
    Top = 9
  end
  inherited JvApplicationHotKey1: TJvApplicationHotKey
    Left = 440
    Top = 65
  end
  object cds: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 504
    Top = 65
    object cdsPro_Codigo: TStringField
      DisplayLabel = 'Produto'
      DisplayWidth = 16
      FieldName = 'Pro_Codigo'
      Size = 16
    end
    object cdsPro_Nome: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'Pro_Nome'
      Size = 40
    end
    object cdsPro_Custo: TFloatField
      DisplayLabel = 'Vlr. Unit.'
      FieldName = 'Pro_Custo'
    end
    object cdsPro_Marcap: TFloatField
      DisplayLabel = 'Marcap'
      FieldName = 'Pro_Marcap'
      DisplayFormat = '0.00, %'
    end
    object cdsPro_Descricao: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'Pro_Descricao'
      Size = 70
      Transliterate = False
    end
    object cdsUnidade: TStringField
      FieldName = 'Unidade'
      Size = 3
    end
    object cdsPesoLiq: TFloatField
      FieldName = 'PesoLiq'
    end
    object cdsPesoBrt: TFloatField
      FieldName = 'PesoBrt'
    end
    object cdsRef: TStringField
      FieldName = 'Ref'
      Visible = False
    end
    object cdsEmbalagem: TFloatField
      FieldName = 'Embalagem'
      Visible = False
    end
    object cdsPro_custoreal: TFloatField
      FieldName = 'Pro_custoreal'
      currency = True
    end
    object cdsEmp_Codigo: TStringField
      FieldName = 'Emp_Codigo'
      Visible = False
    end
    object cdsdivisao: TStringField
      FieldName = 'divisao'
      Visible = False
    end
    object cdslinha: TStringField
      FieldName = 'linha'
      Visible = False
    end
    object cdsclassif: TStringField
      FieldName = 'classif'
      Visible = False
    end
    object cdsfase: TStringField
      FieldName = 'fase'
      Visible = False
    end
    object cdsicms: TFloatField
      DisplayLabel = '%Icms'
      FieldName = 'icms'
    end
    object cdsipi: TFloatField
      DisplayLabel = '%IPI'
      FieldName = 'ipi'
    end
    object cdsemb: TFloatField
      FieldName = 'emb'
      Visible = False
    end
    object cdstrib: TStringField
      FieldName = 'trib'
      Visible = False
    end
    object cdscomiss: TFloatField
      FieldName = 'comiss'
      Visible = False
    end
    object cdspeso: TFloatField
      FieldName = 'peso'
      Visible = False
    end
    object cdsestMIn: TFloatField
      FieldName = 'estMIn'
      Visible = False
    end
    object cdsativo: TStringField
      FieldName = 'ativo'
      Visible = False
    end
    object cdsbaixaaut: TStringField
      FieldName = 'baixaaut'
      Visible = False
    end
    object cdspis: TFloatField
      DisplayLabel = '%PIS'
      FieldName = 'pis'
    end
    object cdscofins: TFloatField
      DisplayLabel = '% Cofins'
      FieldName = 'cofins'
    end
    object cdsfrete: TFloatField
      DisplayLabel = '% Frete'
      FieldName = 'frete'
    end
    object cdsicmsfrete: TFloatField
      DisplayLabel = '% ICMS s/ Frete'
      FieldName = 'icmsfrete'
    end
    object cdsquebra: TFloatField
      DisplayLabel = '% Quebra'
      FieldName = 'quebra'
    end
    object cdsencargos: TFloatField
      DisplayLabel = '% Encargos'
      FieldName = 'encargos'
    end
    object cdsmetro3: TFloatField
      FieldName = 'metro3'
      Visible = False
    end
    object cdsCUSTO: TFloatField
      DisplayLabel = 'Vlr. Custo'
      FieldName = 'CUSTO'
    end
    object cdsCodigoDoGrupo: TStringField
      FieldName = 'CodigoDoGrupo'
      Size = 10
    end
    object cdsAltura: TFloatField
      FieldName = 'Altura'
    end
    object cdsLargura: TFloatField
      FieldName = 'Largura'
    end
    object cdsEspessura: TFloatField
      FieldName = 'Espessura'
    end
    object cdsPRO_CUSTOMEDIO: TFloatField
      FieldName = 'PRO_CUSTOMEDIO'
    end
  end
  object DataSource1: TDataSource
    DataSet = cds
    Left = 472
    Top = 65
  end
  object exporta: TmxDBGridExport
    DateFormat = 'dd/MM/yyyy'
    TimeFormat = 'hh:mm'
    DateTimeFormat = 'hh:mm dd/MM/yyyy'
    ExportType = xtExcel
    ExportTypes = [xtHTML, xtExcel, xtWord, xtTXT, xtCSV, xtTAB, xtRTF, xtDIF, xtSYLK, xtClipboard]
    ExportStyle = xsView
    HTML.CustomColors.Background = clWhite
    HTML.CustomColors.DefaultLink = clRed
    HTML.CustomColors.DefaultFontFace = 'Arial,Helvetica'
    HTML.CustomColors.VisitedLink = clAqua
    HTML.CustomColors.ActiveLink = clBlue
    HTML.CustomColors.DefaultText = clBlack
    HTML.CustomColors.TableFontColor = clBlack
    HTML.CustomColors.TableFontFace = 'Arial,Helvetica'
    HTML.CustomColors.TableBackground = 16777167
    HTML.CustomColors.TableOddBackground = clWhite
    HTML.CustomColors.HeaderBackground = 3368601
    HTML.CustomColors.HeadersFontColor = clWhite
    HTML.Options = [hoShowGridLines, hoBoldHeaders, hoAutoLink, hoOddRowColoring, hoDisplayTitle]
    HTML.Template = ctStandard
    Messages.Caption = 'Exporting DBGrid'
    Messages.CopiedToClipboard = 'Data was copied to clipboard!'
    Messages.CancelCaption = '&Cancel'
    Messages.CreatedText = 'Created:'
    Messages.DocumentFilter.HTML = 'HTML Documents'
    Messages.DocumentFilter.Excel = 'Excel Files'
    Messages.DocumentFilter.Word = 'Word Documents'
    Messages.DocumentFilter.Text = 'Text Files'
    Messages.DocumentFilter.Comma = 'CSV (Comma delimited)'
    Messages.DocumentFilter.Tab = 'Text (Tab delimited)'
    Messages.DocumentFilter.RTF = 'Rich Text Format'
    Messages.DocumentFilter.DIF = 'Data Interchange Format'
    Messages.DocumentFilter.SYLK = 'SYLK Files'
    Messages.ExportCaption = '&Export'
    Messages.ExportToFile = 'Export &to file'
    Messages.FalseText = 'False'
    Messages.Height = 80
    Messages.SaveTitle = 'Save document'
    Messages.SelectFormat = 'E&xport formats:'
    Messages.Text = 'Processing...'
    Messages.TrueText = 'True'
    Messages.Width = 300
    Messages.ViewOnly = '&View only'
    TruncateSymbol = '...'
    RowNumberFormat = '%d'
    DOC_RTF.Template = rtStandard
    DOC_RTF.Options = [roShowGridLines, roOddRowColoring]
    DOC_RTF.CustomSettings.TableBackground = 16777167
    DOC_RTF.CustomSettings.TableOddBackground = clWhite
    DOC_RTF.CustomSettings.HeaderBackground = 3368601
    DOC_RTF.CustomSettings.DefaultFont.Charset = DEFAULT_CHARSET
    DOC_RTF.CustomSettings.DefaultFont.Color = clWindowText
    DOC_RTF.CustomSettings.DefaultFont.Height = -11
    DOC_RTF.CustomSettings.DefaultFont.Name = 'MS Sans Serif'
    DOC_RTF.CustomSettings.DefaultFont.Style = []
    DOC_RTF.CustomSettings.HeaderFont.Charset = DEFAULT_CHARSET
    DOC_RTF.CustomSettings.HeaderFont.Color = clWindowText
    DOC_RTF.CustomSettings.HeaderFont.Height = -11
    DOC_RTF.CustomSettings.HeaderFont.Name = 'MS Sans Serif'
    DOC_RTF.CustomSettings.HeaderFont.Style = [fsBold]
    DOC_RTF.CustomSettings.TableFont.Charset = DEFAULT_CHARSET
    DOC_RTF.CustomSettings.TableFont.Color = clWindowText
    DOC_RTF.CustomSettings.TableFont.Height = -11
    DOC_RTF.CustomSettings.TableFont.Name = 'MS Sans Serif'
    DOC_RTF.CustomSettings.TableFont.Style = []
    DOC_RTF.CellWidth = 1400
    DOC_RTF.TopMargin = 101
    DOC_RTF.BottomMargin = 101
    DOC_RTF.LeftMargin = 461
    DOC_RTF.RightMargin = 562
    EXCEL.Options = [reSetMargins, reUseBorders]
    EXCEL.ColumnWidth = 20
    EXCEL.Protected = False
    EXCEL.Footer = '&P'
    EXCEL.DefaultFont.Charset = DEFAULT_CHARSET
    EXCEL.DefaultFont.Color = clWindowText
    EXCEL.DefaultFont.Height = -11
    EXCEL.DefaultFont.Name = 'MS Sans Serif'
    EXCEL.DefaultFont.Style = []
    EXCEL.HeaderFont.Charset = DEFAULT_CHARSET
    EXCEL.HeaderFont.Color = clWindowText
    EXCEL.HeaderFont.Height = -11
    EXCEL.HeaderFont.Name = 'MS Sans Serif'
    EXCEL.HeaderFont.Style = [fsBold]
    EXCEL.TableFont.Charset = DEFAULT_CHARSET
    EXCEL.TableFont.Color = clWindowText
    EXCEL.TableFont.Height = -11
    EXCEL.TableFont.Name = 'MS Sans Serif'
    EXCEL.TableFont.Style = []
    EXCEL.TopMargin = 0.300000000000000000
    EXCEL.BottomMargin = 0.300000000000000000
    EXCEL.LeftMargin = 0.300000000000000000
    EXCEL.RightMargin = 0.300000000000000000
    Options = [xoClipboardMessage, xoFooterLine, xoHeaderLine, xoShowExportDate, xoShowHeader, xoShowProgress, xoUseAlignments]
    Version = '2.37'
    DBGrid = dbg
    Left = 536
    Top = 65
  end
  object dsDepartamento: TDataSource
    DataSet = cdsDepartamento
    Left = 278
    Top = 384
  end
  object cdsDepartamento: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 311
    Top = 384
    object cdsDepartamentoPro_Codigo: TStringField
      DisplayWidth = 16
      FieldName = 'Pro_Codigo'
      Size = 16
    end
    object cdsDepartamentoPro_Descricao: TStringField
      FieldName = 'Pro_Descricao'
      Size = 60
    end
    object cdsDepartamentoDep_Codigo: TStringField
      DisplayWidth = 10
      FieldName = 'Dep_Codigo'
      Size = 10
    end
    object cdsDepartamentoDepartamento: TStringField
      FieldName = 'Departamento'
      Size = 30
    end
  end
end
